home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / Loader.p < prev    next >
Encoding:
Text File  |  1990-04-03  |  2.7 KB  |  78 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: Loader.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT LOADER;
  11. INTERFACE
  12. USES TYPES;
  13. CONST
  14.  
  15.  
  16. { Error Codes }
  17. idNotFound = $1101;  { segment/application/entry not found }
  18. idPathnameErr = $1103;
  19. idNotLoadFile = $1104;  { file is not a load file }
  20. idBusyErr = $1105;  { system loader is busy }
  21. idFilVersErr = $1107;  { file version error }
  22. idUserIDErr = $1108;  { user ID error }
  23. idSequenceErr = $1109;  { segnum out of sequence }
  24. idBadRecordErr = $110A;  { illegal load record found }
  25. idForeignSegErr = $110B;  { segment is foreign }
  26. TYPE
  27. InitialLoadOutputRecPtr = ^InitialLoadOutputRec;
  28. InitialLoadOutputRec = RECORD
  29.     userID : Integer;
  30.     startAddr : Ptr;
  31.     dPageAddr : Integer;
  32.     buffSize : Integer;
  33. END;
  34. RestartOutRecPtr = ^RestartOutRec;
  35. RestartOutRec = RECORD
  36.     userID : Integer;
  37.     startAddr : Ptr;
  38.     dPageAddr : Integer;
  39.     buffSize : Integer;
  40. END;
  41. LoadSegNameOutPtr = ^LoadSegNameOut;
  42. LoadSegNameOut = RECORD
  43.     segAddr : Ptr;
  44.     userID : Integer;
  45.     fileNum : Integer;
  46.     segNum : Integer;
  47. END;
  48. UnloadSegOutRecPtr = ^UnloadSegOutRec;
  49. UnloadSegOutRec = RECORD
  50.     userID : Integer;
  51.     fileNum : Integer;
  52.     segNum : Integer;
  53. END;
  54. PROCEDURE GetLoadSegInfo ( userID:Integer; loadFileNum:Integer; loadSegNum:Integer; bufferPtr:Ptr)  ;
  55. FUNCTION GetPathname ( userID:Integer; fileNumber:Integer) : Ptr ;
  56. FUNCTION GetPathname2 ( userID:Integer; fileNumber:Integer) : Ptr ;
  57. FUNCTION GetUserID ( pathNamePtr:Ptr) : Integer ;
  58. FUNCTION GetUserID2 ( pathNamePtr:Ptr) : Integer ;
  59. FUNCTION InitialLoad ( userID:Integer; loadFileNamePtr:Ptr; spMemFlag:Boolean) : InitialLoadOutputRec ;
  60. FUNCTION InitialLoad2 ( userID:Integer; loadFileNamePtr:Ptr; spMemFlag:Boolean; inputType:Integer) : InitialLoadOutputRec ;
  61. FUNCTION LGetPathname ( userID:Integer; fileNumber:Integer) : Ptr ;
  62. FUNCTION LGetPathname2 ( userID:Integer; fileNumber:Integer) : Ptr ;
  63. PROCEDURE LoaderInitialization   ;
  64. PROCEDURE LoaderReset   ;
  65. PROCEDURE LoaderShutDown   ;
  66. PROCEDURE LoaderStartUp   ;
  67. FUNCTION LoaderStatus  : Boolean ;
  68. FUNCTION LoaderVersion  : Integer ;
  69. FUNCTION LoadSegName ( userID:Integer; loadFileNamePtr:Ptr; loadSegNamePtr:Ptr) : LoadSegNameOut ;
  70. FUNCTION LoadSegNum ( userID:Integer; loadFileNum:Integer; loadSegNum:Integer) : Ptr ;
  71. PROCEDURE RenamePathname ( oldPathname:Ptr; newPathname:Ptr)  ;
  72. FUNCTION Restart ( userID:Integer) : RestartOutRec ;
  73. FUNCTION UnloadSeg ( segmentPtr:Ptr) : UnloadSegOutRec ;
  74. PROCEDURE UnloadSegNum ( userID:Integer; loadFileNum:Integer; loadSegNum:Integer)  ;
  75. FUNCTION UserShutDown ( userID:Integer; restartFlag:Integer) : Integer ;
  76. IMPLEMENTATION
  77. END.
  78.